﻿Imports DataObject
Imports BusinessObject
Imports Microsoft.ApplicationBlocks.Data

Public Class frmLoaiTienDetail

    Private ptyLoaiTien As New LoaiTien
    Private oLoaiTien As New BusLoaiTien
    Private oFunction As New hDCommonFunction

    Private Sub frmLoaiTienDetail_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        If (Me.eActionMode = EditMode.AddNew) Then
            Me.Text = "Thêm mới tiền tệ"
        Else
            Me.Text = "Sửa tiền tệ"
        End If
        txtMaLoaiTien.Focus()
        DataBindingToControl(GroupBox1)
    End Sub

    Public Overrides Function ValidateData() As Boolean
        If txtMaLoaiTien.Text = "" Then
            MessageBox.Show("Mã loại tiền tệ không được để trống", "Thông báo", MessageBoxButtons.OK, MessageBoxIcon.Error)
            txtMaLoaiTien.Focus()
            Return False
        End If
        If txtTenLoaiTien.Text = "" Then
            MessageBox.Show("Tên loại tiền tệ không được để trống", "Thông báo", MessageBoxButtons.OK, MessageBoxIcon.Error)
            txtTenLoaiTien.Focus()
            Return False
        End If
        Return True
    End Function

    Protected Overrides Function SaveDictionary() As Boolean
        Dim bResult As Boolean = False
        Try
            ptyLoaiTien.MaLoaiTien = txtMaLoaiTien.Text
            ptyLoaiTien.TenLoaiTien = txtTenLoaiTien.Text
            ptyLoaiTien.ToanTuQuyDoi = cboToanTuQuyDoi.Value
            ptyLoaiTien.TyGiaQuyDoi = ceTyGiaQuyDoi.Value
            If (eActionMode = EditMode.AddNew) Then
                oLoaiTien.InsertLoaiTien(sConn, ptyLoaiTien)
            ElseIf (eActionMode = EditMode.Edit) Then
                ptyLoaiTien.SoLoaiTien = RowDetail.Item("SoLoaiTien")
                oLoaiTien.UpdateLoaiTien(sConn, ptyLoaiTien)
            End If
            bResult = True
        Catch ex As Exception
            MessageBox.Show(ex.ToString, "Thông báo lỗi", MessageBoxButtons.OK, MessageBoxIcon.Error)
            bResult = False
        End Try
        Return bResult
    End Function

End Class
